home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / abop-lychnis-structure.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  684 b   |  50 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. 31
  3. 18
  4. 100
  5. #
  6. # axiom
  7. #
  8. c(12)N
  9. #
  10. # rules
  11. #
  12. N=FII[&(60)Y]>(90)[&(45)'(0.8)A]>(90)[&(60)Y]>(90)[&(45)'(0.8)D]FIK
  13. #
  14. # forms substitutes, leaves from bop01.ls
  15. #
  16. Y=[c(4){++l.--l.--l.++|++l.--l.--l.}]
  17. l=g(20)l # leaves grow in size with recursion level
  18. #
  19. # forms substitutes, flowers from bop01.ls
  20. #
  21. K=[!c(2)FF>w>(72)w>(72)w>(72)w>(72)w]
  22. w=[c(2)^!F][c(5)&(72){-(54)f(300)+(54)f(300)|-(54)f(300)+(54)f(300)}]
  23. f=_  # removes all flower leaves except those of the last recursion
  24. #
  25. # 7 step delay for A(i)
  26. #
  27. A=B
  28. B=C
  29. C=D
  30. D=E
  31. E=G
  32. G=H
  33. H=N
  34. #
  35. # 10 delay for I(i)
  36. #
  37. I=FO
  38. O=FP
  39. P=FQ
  40. Q=FR
  41. R=FS
  42. S=FT
  43. T=FU
  44. U=FV
  45. V=FW
  46. W=FX
  47. X=_
  48. #
  49. @
  50.